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This month we have an education 
issue for you. Now that students have 
settled back into school and vacations 
are remembrances, it's time to put the 
computer back to use -for learning. 

0-f course, there are a number o-f 

topics not devoted to education and 

programming examples that can be 

■for both education and other 
areas o-f interest. 



This month we've decided to mak 
a few small but useful changes in th 
STANDARD LINE as followss 



ABBREVIATION 

o 

no 
ono 



ITEM 
OPT I ONAL 



BRAND NOT 
OPTIONAL 



This change was necessary to 
articles written specifically 
CorCofiHs 9900 Disk Controller 
be of benefit in other instances 



X 
X 

identify 

for the 

and may 



Fun With Spatial Relationships 
STANDARDS lA 9A 

Spatial Relationships Fun is an 
educational game for preschoolers to 
explore their ability to distinguish 
shapes using four shapes - triangle, 
square, heart, and diamond. A shape 
is shown at the top of the screen. 
The child is to select the shape at 



the 


bottom of the screen that matches 


the 


shape at the top- Instructions 


are 


included in the game. 



Keep in mind that this is only 

a game. To have your child tested in 

this important facet of development, 

consult a kindergarten, health center, 
or doctor. 



As for the programming, 
of the tips we introduced last month 

are used, including DISPLAY AT and 

instant screen formatting- Study the 

program for other techniques you may 

not be familiar with- Here is the 
1 istings 

>1 REM SUPER 99 SPATIAL 

RELATIONSHIPS FUN 
>2 REM COPYRIGHT 1984 

SUPER 99 MONTHLY 
DIM SHAPE* (16) 
FOR I«l TO 16 
READ SHAPE«<I> 
CALL CHARC131+I,SHAPE»(I 



>100 
>110 
>120 
>130 

)> 
>140 

>150 
>160 

>170 

>180 

>190 

>200 



NEXT I 

CALL COLOR (16, 5,1) 

FOR 1=152 TO 155 

CALL CHAR(I,"0") 

NEXT I 

G05UB 1000 

ON CHECK+1 GOTO 190,210, 



210,220,220 
>210 GOSUB 2000 
>220 FOR B»l TO 
>230 FOR A«l TO 
>240 SELECT"- 1 
>250 GOSUB 4000 
>260 GOSUB SOOO 
>270 GOSUB 6000 
>280 GOSUB 7000 



3 
4 



-> 



-1- 
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>290 CALL CHAR < 152, "FFFFFFFFF 
FFFFFFF") 

>300 CALL KEY<5,Kp8) 
IF S<1 THEN 300 
IF K032 THEN 3B0 
SELECT-SELECT+1 
IF SELECT<-4 THEN 360 
SELECT- 1 
(30SUB 8000 

CALL CHAR<SELECT+1S1,"FF 
FFFFFFFFFFFFFF") 
>380 IF KOI 3 THEN 300 

GOSUB 9000 
bOSlJB BOOO 
NEXT A 
NEXT B 
GOaUB 1200O 
END 



>310 
>320 
>330 
>340 
>350 
>360 
>370 



>390 
>400 
>410 
>420 
>43D 
>999 



>1000 REM « INSTRUCTIONS ? « 

>i010 CALL CLEAR 

>1020 PRINT "DO YOU WANT INST 

RUCT I ONS? " 
>103O PRINT "PRESS Y OR N" 

CALL KEY(5,K,S) 

IF S<1 THEN 1040 

A*- " YyNn " 

CHECK-PDS < A« , CHR« ( K ) , 1 ) 

RETURN 

REM « INSTRUCTIONS « 



>1040 
>1050 
>1060 
>1070 
>1080 
>2000 



>2010 
>2020 
>2030 
>2040 
>2050 
>20A0 
>2070 
>2080 
>3000 



CALL CLEAR 
FOR A-1 TO 11 
READ WORD«,X,Y 
GOSUB 30OO 
NEXT A 

CALL KEY(3,K,S) 

IF S<1 THEN 2060 

RETURN 

REM « DISPLAY AT 



>3010 FOR I-l TO LEN(WORD«) 

>3020 CALL VCHAR<X,Y+1+I,ASC( 
BEG* (WORD*, 1,1))) 

>3030 NEXT I 

>3040 RETURN 

>4000 REM » SET-UP BORDERS t 

>4010 CALL CLEAR 
>4020 FOR 1=1 TO 4 

>403O CALL HCHAR (16, 1*6-1, I+l 

51,6) 
>4040 CALL VCHAR( 16, 1*6-1, I+l 

51,6) 

>4050 CALL HCHAR (21, 1*6-1,1+1 
51,6) 

>406O CALL VCHAR( 16, 1*6+4,1+1 
51,6) 



>4070 NEXT I 
>40B0 RETURN 
>S000 REM * SOLUTION SHAPE * 

>5010 CALL HCHAR(3,16,12e+4«A 
) 

>5020 CALL HCHAR(3,17,129+4*A 
) 

>5030 CALL HCHAR(4, 16,130+4«A 
) 

>5040 CALL HCHAR(4, 17,131+4*A 
> 

>5050 RETURN 

>6000 REM « RANDOM 8c UNIQUE* 



»> 



>6010 
>6020 
>6030 
>6040 
>6050 
>6060 
>6070 
>6080 
>6090 
>6100 
>6110 
>6120 
>6130 
>7000 

>7010 
>7020 
>7030 
>7040 

1) 
>7050 
>7060 

3) 
>7070 
>7080 
>7090 

>eooo 

>8010 
>B020 
>B030 
>8040 
>9000 



6030 



RANDOMIZE 
FOR I»l TO 4 

C(I)-INT(4*RND)+1 
IF I-l THEN 6090 
J=l 

IF C(I)«C(J)THEN 

J-J+1 

IF J<I THEN 6060 
NEXT I 

FOR I-l TO 4 

C(I)-iC(I)*6+l 

NEXT I 

RETURN 

REM « DISPLAY SHAPES « 

N-132 

FDR I-l TO 4 

CALL HCHAR(ie,C(I>,N> 
CALL HCHAR(18,C(I)+1,N+ 

CALL HCHAR(19fC(I),N+2> 
CALL HCHAR(19,C(I)+1,N+ 



N-N+4 
NEXT I 
RETURN 
REM * 



ERASE BORDERS 



FOR I«152 TO 155 

CALL CHAR(I,''0") 

NEXT I 

RETURN 

REM * ANSWER RIGHT? 



>9010 CALL GCHAR( 3, 17, CORRECT 

) 
>9020 CALL GCHAR(18,SELECT*6+ 

2, ANSWER) 
>9030 IF CORRECT- ANSWER«0 THE 

N 9050 
>9040 CORRECT-ANSWER+1 
>9050 ON CORRECT-ANSWER+ 1 GOS 

UB lOOOO, 11000 



k 



I 
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>9060 RETURN 

> 10000 REM » RIGHT ANSWER 



>10010 
> 10020 

100 
> 1 0030 
> 10040 
>10050 
> 11000 



RIGHT-RIGHT+1 
FOR I«170 TO 1700 



CALL SOUND <-l, 1,0) 

NEXT I 

RETURN 

REIi « MRONG ANSWER 



>16100 DATA SCREEN., 21,1 
>16110 DATA PRESS ANY KEY TO 
CONTINUE, 24, 2 



Th> game can be 
challvnging by changing 
Try -forming the -four 
rotating a triangle. 



more 



made 

the 

shapes by 



>11010 

-lOO 

>11020 

>11030 

>11040 
> 1 2000 

>12010 
> 12020 
> 1 2030 
> 1 5000 

>15010 
> 1 5020 
> 15030 
> 1 5040 
>15050 
> 15060 
> 1 5070 
> 1 5080 
> 15090 
>15100 
>1S110 
>15120 
>15130 
>15140 
>15150 
>15160 
> 1 6000 



FOR I=«1700 TO 170 STEP 

CALL S0UND(-1,I,0) 
NEXT I 

RETURN 

REM » PRINT SCORE « 



FFFFFFFFFFFFFFFF 



SOCOEOFOFSFCFEFF 
O 



CALL CLEAR 

PRINT "SCORE 

RETURN 

REM « SHAPE 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 



"; RIGHT 



PATTERNS* 



80C0E0F0FBFCFEFF 
0000 1 C3E7F7F7F7F 



>16O10 DATA 

HIPS FUN, 3 
> 16020 DATA 
> 16030 DATA 

TO MOVE, 7, 
>16O40 DATA 

N TO, 9,1 
>16050 DATA 

ENTER KEY, 
> 16060 DATA 

ON., 13,1 
> 16070 DATA 

T THE TOP, 
> 16080 DATA 

ONE OF THE 
> 16090 DATA 

TOM OF THE 



3F 1 F0F07030 1 

FCF8F0E0C08 

000 1 03070F 1 F3F7F 

0080C0E0F0F8FCFE 
7F3F 1 F0F07030 1 

FEFCF8FOEOC08 

* INSTRUCTIONS * 

SPATIAL RELATIONS 

,1 
INSTRUCTIONS: ,5, 1 

USE THE SPACE BAR 

1 

FROM ONE SELECT I O 

ANOTHER. USE THE 

11,1 
TO MAKE A SELECT! 

MATCH THE SHAPE A 
15,1 

OF THE SCREEN TO 
• 17,1 

SHAPES AT THE BOT 
,19,1 



Program Development i The Power 

of MERGE 

STANDARDS lA 2A 4A 5A 6A 7A 9A 

Last month we outlined the proper 
structure o-f an Extended BASIC 
program, emphasizing the importance of 
the use o-f subroutines. When using 
Extended BASIC and disk drive(s) , 
program development can be greatly 
mimpli-fied using MERGE. 

Have you ever keyed in many 
program lines, only to determine later 
that they must be removed, line by 
line? It is a very slow process! 



Try 

-follows: 



keying in your program as 



>100 GOSUB 1000 
>110 GOSUB 2000 
>120 END 

>SAVE "DSK 1.1 -999", MERGE 
>NEW 

>1000 

>1010 

>1020 

>1030 

>1040 

>1050 

>1060 

>SAVE 

>NEW 

>2000 

>2010 



UP SCREEN 
CLEAR 

HCHAR(1,3,42,28) 
HCHAR<24,3,42,2a> 
VCHAR(1,3,42,24) 
VCHAR( 1,30, 42,24) 
RETURN 

"DSKl. 1000- 1999", MERGE 



CALL 
CALL 
CALL 
CALL 
CALL 



! DISPLAY MESSAGE 
DISPLAY AT(12,5)SIE(19 
) I "MERGE DEMONSTRATION" 
>2020 RETURN 

>SAVE " DSK 1 - 2000-2999 " , MERGE 
>NEW 



you 



Now 
subroutln< 
choose to omit 
1000, proc 
page I 



can MERGE 
For example, 
the subroutine 
shown on 



a 



the 



you 
line 
next 



-3- 
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>MER(3E "DSKl, 1-999" 
>MERGE "DSK 1.2000-2999" 

>100 

Or, you can complet 
subroutine by writing ov»r 
on disk, as -follow«B 



ly Changs a 
the program 



>1000 
>1010 
M020 
>BAVE 
>NEW 



SCREEN 



REM SET UP 

CALL CLEAR 

RETURN 

" DSK 1 , 1 000- 1 999 " , MERGE 



I-f you use a subroutine in many 
o-f your programs, SAVE the subroutine 
using MERGE and avoid otherwise using 
the program lines at which that 
subroutine will reside. 



not contain 
outside the 
be used to 
program t 



I-f a subroutine 
references to 1 i n 
subroutine, MERGE can 
RESEQUENCE a portion o-f 



>MERGE " DSK 1 . 1 000- 1 999 " 

>RES 3000, 10 

>SAVE "DSK 1.3000-3999 'EMERGE 

>DELETE •■ DSK 1 . 1 000- 1 999 " 

>MERGE " DSK 1 . 1 -999 " 

>lO0 GOSUB 3000 

>SAVE "DSKl. 1-999" 

After completing your program, do 
a normal SAVE, as -followss 



instal 1 our revision. We used an 
unaltered version of TI FORTH, Here 
mre the steps to be -followeda 



1. 



2. 



3. 



Initialize a SS/SD diskette. 
FORMAl -from Tl-Writer Fix 1 
the diskette. 



Copy 
onto 



Editor /Assembler 

FORTH System Disk- 

(Load and Run 

Insert the FORMAl 

up in step 1 above. 



Insert thi 
cartridge and 
Boot FORTH 
"DSKl. FORTH") 
diskette 
Key I 

-EDITOR 
10 EDIT 



Move the cursor to Row 12 Column 
29- Change "RS232, BA=1200. LF" to 
match your printer requirements. 
For example, paral lei users would 
change to "PIO.LF" or 
Press BACK (<FCTN> <9>> . 



"PIO.CR". 
Key: 



FLUSH 



Copy the new version o-f -file 
FORMAl, along with the other -fix 
-files, to your Tl-Writer diskette. 



you use Tl-Writer, your 
ing will go -faster since 
be a default for your own 



Now, wh 
word process 

there will 
printer ! 



>SAVE "DSKl. MERGE DEMO 



• I 



either DELETE or the Disk 

Manager to eliminatv mubrcutines that 
are no longer needed on your diek. 



Parallel De+ault for 



TI~Writer Fix 1 



STANDARD: 



lA 2CE 
lOA 



3B 4B 5A 6B 7A 9A 



Multiple Choice Test Generator 

STANDARD! lA 2A 3B 4B 5A 6B 7A 9A 

lOA 



The program whi ch is 
will allow you to 
choice tests, take 
screen, and /or print 
printer- Questions 
linked and scrambled 



1 isted below 
& multiple 
test on the 
on your 
answers are 



Last month we reported that the 
pri nter de-fault provided by the -Fix to 
T I -Writer (recently released by TI to 
Ulcers group^i) was an advantage onl y 
■for seri al printer users* So, we set 
about tn find a way for parallel users 
to share the conveni ence of havi ng a 
pri nter de-fault- FORTH i s requi red to 

-4 

SUPER 99 



test, 
and 1 
has a 
groups 
answer 
test 



the 
the 

and 
randoml y -for each 
Printouts include 2 test sheets 
answer sheet . Each pri ntout 
control number so that study 
and /or instructors can match 
sheets to the corresponding 
sheets. No questions or answers 



will be duplicated. The <ALPHA LOCK> 
key must be depressed except when 
creating quest i ons and answers. 

-> 

MONTHLY 



^j 



enter 
create 
up to 
1 ine. 
line. 



The program will prompt you to 



20 questions and BO answers to 
a test. Each question can be 
4 lines lonQ, 28 characters per 
You must key <ENTER> a-fter each 
One 24 character line is 
allowed for the correct answer. Three 
24 character lines are provided for 
wrong answers. 



It is advisable 
disk to have a list of 
as the program will 
name of the test you 

th 



to catalog your 

available tests 

"crash" if the 

select is not 

e name of a file on the diskette. 



If you 
educational 
program, it 
questions, i 



are not inter 

possibilities 
can b» usBd to 
tc, ! 



in the 
of the 
k trivial 



Listing (TEST PRINTER COMMANDS !> i 

>1 MULTIPLE CHOICE TEST 

GENERATOR 
>2 COPYRIGHT 1984 

SUPER 99 MONTHLY 
>100 OPTION BASE I 
>110 DIM QUEST I ON* (20), ANSWER 
»(20) , CHOICE* (4) , QSCRAMBLE (2 

0), SCRAMBLE (4), LINE* (16) 
>120 GOSUB 1000 ! MENU 

>130 CALL KEY(5,K,S>:: IF S< 1 
OR K<49 OR K>52 THEN 130 EL 
SE IF K=52 THEN 999 

>140 ON K-4B GOSUB 2000,3000. 
4000 

>150 RUN 100 
>999 END 
> 1 000 ! MENU 

>1010 DISPLAY AT (1,3) ERASE 
L: "MULTIPLE CHOICE TESTS" 
>1020 DISPLAY AT(4,1):"1. 



AL 



CR 



II 



>1030 DISPLAY AT(6,1):"2, TE 

ST" 

>1040 DISPLAY AT(8,1)«"3. PR 
INT TEST AND ANSWERS" 

>1050 DISPLAY AT(10,l)i"4 E 
ND" 

>1060 DISPLAY AT(20,8)BEEPt"S 
ELECT NOW." 

>1070 RETURN 

>2000 ! CREATE TEST 

>2010 DISPLAY AT (1,8) ERASE AL 

L: "CREATE TEST" 
>2020 DISPLAY AT (3, 1 ) : "NAME Q 

F TEST:" :: ACCEPT AT (4,1) BE 



EP SIZE(10):TESTNAME« 
>2030 FOR A=l TO 20 

>2040 CALL HCHAR (9, 1,32,480): 
I DISPLAY AT(6,1)! "QUESTION" 
jA:"(FOUR LINES OF INPUT ALL 
OWEDFDR QUESTIONS)" :: LETTE 
RS=28 :: QUESTION* (A) =="" 

>2050 FOR B=l TO 4 :: ACCEPT 

AT (B+9,1) BEEP: TEMP* i: GOSUB 
13000 : : NEXT B 

>2060 DISPLAY AT ( 15, 1 ) : "CORRE 
CT ANSWER!" :: LETTERS=24 :: 
ACCEPT AT(16,1)BEEP SIZE(24 
)!TEMP* :: GOSUB 13000 ! 

CONCATENATE STRING 
>2070 DISPLAY AT < 17, 1 ) i "WRONG 
ANSWERS (3):" :: FOR B=l TO 
3 :; ACCEPT AT (B+17, 1 )BEEP 

SIZE (24): TEMP* :: GOSUB 1300 

8 : NEXT B 

>2080 DISPLAY AT(22, DBEEPi "D 
ID YOU ENTER THE QUESTION P 
ROPERLY (Y OR N)?" 

>2090 CALL KEY(3,K,S)ii IF S< 

1 THEN 2090 

>2100 Z*="YyNn" i: ON POS(Z*, 
CHR*(K),1)+1 GOTO 2080,2110, 
2110,2040,2040 

>2110 NEXT A 

>2120 OPEN #li"DSKl."8tTESTNAM 

E*, RELATIVE, DISPLAY , UPDATE. 
FIXED 208 

>2130 FOR A«l TO 20 

PRINT #1,REC A: QUESTION 



>2140 
«(A) 
>2150 
>21A0 
>2170 
>30O0 
>3010 
LLi " 
>3020 



NEXT A 
CLOSE #1 
RETURN 



DISPLAY AT (1,12) ERASE A 



II 



DISPLAY AT (3,1): "SELECT 

:*' :s ACCEPT AT<4,1)BEE 

P SIZE(10>:TESTNAME* 

>3030 OPEN #1:"DSK1."S(TESTNAM 

E*, RELATIVE, DISPLAY , UPDATE, 
FIXED 208 

>3040 GOSUB 11000 :: GOSUB 14 

000 : ! GOSUB 7000 
>3050 FOR A=l TO 20 

>3060 CALL HCHAR (6, 1,32,608): 

1 DISPLAY AT(6.1): "QUESTION" 

>3070 FOR B«l TO 4 :: DISPLAY 
AT (B+7, 1 ) : SEG* (QUESTION* (A) 
,B«28-27,28):: NEXT B 
>3080 Q«=A : : GOSUB 8000 
>3090 FOR B=l TO 4 :s DISPLAY 



-5- 
SUPER 9^ MONTHLY 



-> 



AT(B+12, 1) :CHR*(64+B)8t". "8e 

CHOICE* (SCRAMBLE (B) )s: NEXT 
B 

>3100 DISPLAY AT(18, 1> : "ANSWE 
R:" :: ACCEPT AT ( 18, 10>BEEP 
VALIDATE ( "ABCD" ) SI ZE (1 ) s RESP 
ONSE« 

>3110 IF CHOICE* (SCRAMBLE <ASC 
( RESPONSE* ) -64 > ^ =SEG« ( QL'^ST I 

ON* (A) , 113, 24) THEN GOSUD 500 

O HLSE GOSUB 6000 
>3120 GOSUB 10000 ! ANY KEY 
>3130 NEXT A 
>3140 DISPLAY AT (20, 1 ) ERASED A 

LL:"YOUR SCORE IS"|RI6HT*S 
>3150 GOSUB 10000 ii GOSUB 11 

000 
>3160 RETURN 
>4000 ! PRINTOUT I 80 COLUMN 

PRINTER REQUIRED 
>4010 DISPLAY AT ( 1 , 3 ) erase: AL 

L: "PRINT TEST AND ANSWERS" 
>4020 DISPLAY AT (3, 1 > t "SELECT 
TEST:" :: ACCEPT AT (4,1) BEE 

P SIZE(10)!TESTNAME* 
>4030 DISPLAY AT (6, 1 ) s "PRINTE 

R:" :: ACCEPT AT (7, 1 ) BEEP: PN 

AME* 

>4040 DISPLAY AT (V, 1 > s "NUMBER 
OF COPIES TO PRINT" :s ACCE 

PT AT (10,1) BEEP VALIDATE (DIG 

IT) :COPIES 
>4050 OPEN #2:PNAHe* :: OPEN 

« 1 : " DSK 1 . " 8(TESTNAMEt , RELAT I V 

E, DISPLAY , UPDATE, FIXED 208 

s: GOSUB iiOOO 
>4060 PRINT #2:CHR*(27) ;CHR*( 

108) ;CHR*(3) ; CNR* (27) ; CHR* (S 

1);CHR*(77); ! SET MARGINSi 

LEFT e RIGHT 77 

>4070 PRINT #2eCHR»(27) |CHR6( 
68>5CHR*(37);CHR*(0)| ! SET 
TAB TO CENTER FOR RIGHT 
PORTION OF PAGE - CHR* (9) IS 
TAB 

>4080 FOR D-1 TO COPIES 
>4090 GOSUB 9000 is GQSUB 140 

00 a s GOSUB 7000 
>4100 FOR El^-i TO Xo 
>4110 FOR F=l TO 2 

>4120 a=QSCRAMBLE(£«2+F-2) a: 
GOSUB 8000 

>4130 FOR G=l TG 4 

>4140 LINE«<G+8*;,F-A> >'»8EG«<Q 
UESTION*(Q) ,2&tG--27,28) 

>4150 LINE*( <G+4>48*(F-1) >=CH 

O I CE* ( SCRAMBLE ( G > > 

>4160 IF SEG* {yUESTiON^ (Q; , 1 1 



3p 24) -CHOICE* (SCRAMBLE (G) > TH 
EN ANSWER* <E«2+F-2)*CHR*(G+6 
4) 

>4170 NEXT G 

>4180 NEXT F 

>4190 FOR F«l TO 8 

>4200 IF E<6 THEN G-E ELSE G« 



>4210 IF F-1 THEN PRINT #2: ST 
R* (G> 5c" , " ; LINE* (F) 5 CHR* (9) 
J STR* <G+S) St" . " ; LINE* <F+S) 

>4220 IF F>1 AND F<5 THEN PR I 
NT #2:RPT*(" '',3+LEN(STR*(G> 
)>jLINE«(F>;CHR*(9>;RPT*(" " 
, 3+LEN (STR* (G+5> ) ) ; LINE* (F+B 
) 

>4230 IF F>4 THEN PRINT #2:" 
";CHR*(F+60)8e"- ";LINE*<F) 
; CHR* (9) I " " ; CHR* (F+60> «(" , 
"|LINE*(F+B) 

>4240 NEXT F 

>4250 PRINT #2 33 PRINT #2: "A 

NSWER " ; CHR* ( 9 ) ; " ANSWER 

" 8 3 PRINT #2 

>4260 IF E=*5 THEN PRINT *2:CH 
R*(12)ii GOSUB 9000 ! GOTO 
NEXT PAGE AND PRINT HEADING 

>4270 NEXT E 

>4280 PRINT #2iCHR*(12) 

>4290 GOSUB 9000 

>4300 FOR F=l TO 10 ss IF F<6 
THEN G=F ELSE G«F+5 

>4310 PRINT #2:RPT*(" " , 2-LEN 
(STR*<G) ) ) ;STR*(G)8{", ";ANS 
WER*(F«2-1); 

>4320 PRINT #2iCHR«(9);RPT*(" 

",2-LEN(STR*(G+5)));STR*(G+ 
5)«c". "!iANSWER*(F«2):: PRIN 
T #2 ij PRINT #2 :: NEXT F 

>4330 PRINT #2: CHR* (12) 

>4340 NEXT D 

>4350 CLOSE #1 :: CLOSE #2 

>4360 RETURN 

>5000 ! CORRECT RESPONSE 

>5010 RIGHT=RIGHT+1 

>5020 FOR B=170 TO 1700 STEP 
100 :: CALL SOUND (-1, B, 0) s : 
NEXT B 

>5030 DISPLAY AT (20, 8) : "VERY 
GOOD ! ! ! " 

>5040 RETURN 

>6000 \ INCORRECT RESPONSE 
>6010 FOR B=1700 TO 170 STEP 
-100 :: CALL SOUND (-1 , B, O) : : 
NEXT B 

>6020 DISPLAY AT (20, 1 ) : "THE C 
ORRECT ANSWER IS" ;SEG* (QUEST 
I0N*(A>,113,24> 



-I 

y 
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>6030 RETURN 

>7000 ! INPUT FROM DISK 

>7010 FOR B=l TO 20 :s LINPUT 

#1,REC aSCRAMBLE(B):QUESTIO 
N»(B>i s NEXT B 
>7020 RETURN 
>8000 ! SCRAMBLE ANSWERS 

>8010 FDR B"! TO 4 i I CHOICE* 
<B> «SEG« (QUESTION* (Q) , 1 13+ (B 
-1)*24,24) II NEXT B ! GET 
ANSWERS FROM STRING 

>8020 RANDOMIZE 
>B030 FOR B»l TO 4 
>8040 C=l :: SCRAMBLE (B) =INT ( 
4«RND)+1 

>8050 IF B=l THEN 8080 

>8060 IF SCRAMBLE (B) -SCRAMBLE 
(C)THEN 8040 



>8070 

60 
>8080 
>8090 
>9000 
>9010 

2 :: 
>9020 



C=C+1 



IF C<B THEN 80 



PRINT « 



■I 



INT(( 



NEXT B 
RETURN 

! PAGE HEADER 
FOR B=l TO 4 : : 
NEXT B 
PRINT #2:RPT«(" 

74-LEN(TESTNAME») )/2));TESTN 
AME« 

>9030 PRINT #2:RPT*(" 'SINTCC 

74-LEN( "CONTROL NO. "«tSTR*(D 

)))/2)); "CONTROL NO. "«(STR*( 
D) 

>9040 PRINT #2 

>9050 RETURN 

> 10000 ! ANY KEY 

>10010 DISPLAY AT(24,2>BEEPi " 

PRESS ANY KEY TO CONTINUE" 
>10020 CALL KEY(5,K,S)S8 IF S 

<1 THEN 10020 
> 10030 RETURN 
> 11000 • USER MESSAGE 
>11010 DISPLAY AT(24p 1)1 "WORK 

ING...ONE MOMENT PLEASE!" 
> 11020 RETURN 
> 13000 ! BUILD RECORD 
> 130 10 QUESTION* (A) -QUESTION* 

( A ) 8cTEMP*8(RPT* < " " , LETTERS-L 

EN ( TEMP* ) ) 
> 13020 RETURN 

! SCRAMBLE QUESTIONS 
RANDOMIZE 
FOR A=l TO 20 

B=l :: QSCRAMBLE(A)=IN 
T(20«RND)+1 
>1404O IF A=l THEN 14070 

> 14050 IF QSCRAMBLE(A)=QSCRAM 

BLE(B> THEN 14030 
>14060 B=B+1 :: IF B<A THEN 1 



> 14000 
>1401O 
>14020 
>14030 



4050 
>14070 NEXT A 
> 14080 RETURN 



DISPLAY AT USING in Console BASIC 

STANDARD I lA 9A 

This article shows how to convert 
numbers -for use by the DISPLAY AT 
routine we covered last month. Plus, 
the example program simulates the 

Extended BASIC statement DISPLAY AT 
USING. That is to say, numbers are 
■formatted. The example program rounds 
to 2 decimal places, adds a leading 
dollar sign i-f desired, and, i-f 
required, adds a comma -for numbers up 
to 999,999.99 and trailing decimal 
point and Zero(s>. After the 
■Formatting, the number is ready -for 
display using the DISPLAY AT routine, 
with the decimal point being the point 
of reference. In other words, the 
column selected is the column in which 
the decimal point will be placed - not 
the column at which the "♦" will 
appear. Five numbers will be 
d i spl ayed . Af ter the f i f th number 
appears, press any key to end the 
program. DISPLAY AT USING is useful 
i n many si tuat i ons , i ncl udi ng for 
education, business, and recreation- 
Here is the example program listingi 



>100 
>110 



>120 
>130 
>140 
>150 
>160 



CALL CLEAR 

REM READ TEXT TO BE 

DISPLAYED AND ROW 

AND COLUMN 
FOR A»l TO 6 

READ WORD*,X,Y 

GOSUB 2000 

NEXT A 

REM READ NUMBERS TO BE 
DISPLAYED, ROW, 
COLUMN, AND ♦ (?) 

FOR A»=l TO 5 

READ B,X,Y,8* 

GOSUB 3000 

GUSUB 200O 

NEXT A 

CALL KEY(5,K,S) 

IF S<1 THEN 220 

END 

>2000 REM DISPLAY AT 
>2010 FOR D=i TO LEN(WORD*) 



>170 
>180 
>190 
>200 
>210 
>220 
>230 
>999 



> 
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>2020 CALL VCHAR<X,Y+1+D,ASC( 

SEG»(W0RD«,D,1))) 
>2030 NEXT D 
>2040 RETURN 
>3000 REM USING 

>3010 REM ROUND TO NEAREST 

PENNY 
>3020 B=INT(100«B+,5)/100 
>3030 REM TRUNCATE NUMBER 

TO 2 DECIMAL 
PLACES, ADD % (?) 

>3040 WORD«=e»8cSEG*<STR*(B)8," 
- ",1 , POS (STR* <B) &",'■,",■■, 1 ) ) 

S(SEG« ( STR* ( B ) «t " 000 " , POS ( STR* 
(B)&".",".",i)+i^2) 
>3050 REM INSERT A COMMA FOR 

#'S TO 999,999.99 
>3060 IF LEN(W0RD«)<=7 THEN 3 
080 

>3070 W0RD»=SE6« (WORD*, 1 , LEN ( 
WORD* ) -6 ) & " , •■ 8,SEGi* ( WORD* , LEN 
(WORD*) -5, 7) 

>3080 REM SET TAB FOR 

DECIMAL POINT 
>3090 Y=Y-(LEN(W0RD*)-3) 
>3100 RETURN 

>5000 REM PHRASES TO DISPLAY 
>50I0 DATA "TEST DISPLAY AT U 
SINGiM.I 

>5020 DATA "ROUND TO 2 DEC I MA 

L PLACES, ",3,1 
>5030 DATA "♦ OPTION, ADD COM 

MA'S, ",5,1 

>5040 DATA "SELECT ROW AND CO 
LUMN.",7,1 

>50S0 DATA "THIS PROGRAM WORK 
S WITH ANY", 20,1 

>5060 DATA "FORM OF TI BASIC 
•!",22,1 

>6000 REM NUMBER, ROW, 

COLUMN OF DECIMAL, 

AND * (?) 
>6010 DATA 25,9,9,"*" 
>602O DATA 321,7802,10,9," " 
>6030 DATA 872449. 272, 1 1 ,9 ■• 

mm ' 5 S 



>6040 DATA 1410,135,12,9 " " 
>605O DATA 1,13,9," •■ 



BeQinnino Bflfiir - FQR-NFyr i r.r, p 
STANDARD: lA 9A 



Loops are u 
repetitive steps into 



lines- A FOR-NEXT loop can use almost 
«ny value to begin, end and increment. 
For instance, i-f you want to number 
the odd row« up to row 9 on the screen 
by placing a number in the first text 
column, hmrm is one way to do soi 

>100 FOR A=49 TO 57 STEP 2 

>110 CALL VCHAR(A-48,3,A) 
>110 NEXT A 

Recognizing when a loop can be 
used is in large part a matter of 
•xperlencs and dedication. Believe 
us, the patterns Are not always easy 
to recognize! Try anyway! 

If someone has convinced you that 
your TI-99/4A is no better than other 
computers (or, perish the thought, not 
as good), try running this program on 
your TI-99/4A and then another brand: 



>100 FOR A«l TO 100 
>110 PRINT A 
>120 NEXT A 



. 1 



Most other computers, even the 
huge business systems, will make an 
error before 40 - some before 4' This 
can be "fixed", but who wants to 
bother with seemingly illogical extra 
steps? Documentation on the unique 
TI number handling system can be found 
on page I I 1-13 of the BASIC 
Manual . 



USING "Double FORTH" 
STANDARD! lA 2C 4B 5A 6B 7A 9A 



TI 
language, 
standard 
recognize 



FORTH i s a 
One common 

TI FORTH is 
screens on 



very flexible 

alteration to 

to change it to 

disk side 2 



and/or disk 2. If you have already 
done this, we have some tips for you. 
If you haven't, we'll try to get to 
how to double FORTH next month. 



to condense 
a few program 

-8 
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,.^ editors from -EDITOR and 
-64SUPP0RT cannot be loaded at the 
same time. If you'd like to be able 
to switch from one editor to the other 
quickly, we have a solution. Be sure 
you Are using disks that don't contain 

-> 
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programs 
above 90 
to scr 
DISK-LO, 



on 
and 



reen 7 or any screen 
with the only changes 
being -for DISK-HI, 



and DISK-SIZE, 



What we are going to do is set up 
your own personal rapid load, a binary 
image load created by BSAVE and loaded 
with BLOAD, in a manner that will 
allow you to quickly change editors. 



Key -EDITOR and 
screen 7 list the menu 
you often use- Try to 
■from the most used to the 



7 EDIT, 
options 
arrange 
1 



On 

that 

these 

used 



so that you may be able to FORGET the 
ones at the bottom o-f the list later. 
The last two options should be -BSAVE 
and -EDITOR, Here is one possibility! 

-GRAPH -DUMP -VDPMODES -COPY 
-PRINT -BSAVE -EDITOR 



Do a <FCTN> <9> to return to immvdiata 
mode and key the followingi 

FLUSH 

COLD 

7 LOAD 

' TASK 91 BSAVE 

Find the first blank screen above 
91, Our example would place the blank 
screen at 101, Repeat the above steps 
using -64SUPP0RT in place o-f -EDITOR 
and 101 or your first blank screen in 
place of 91. Key 3 EDIT. Toward the 
bottom of screen 3, you should key 
91 BLOAD ( 101 BLOAD ), with the one 
in parentheses being your second BLOAD 
screen number. 



To change editors, just edit 
screen 3 «nd reverse the parentheses 
to the other BLOAD and do a COLD, 
Your original disk is left essentially 
unchanged and you can easily check or 
update your BLOAD's later by looking 
at screen 7! 



BeQinnino FOR TH t XBASIC To FORT H 
STANDARD: I A 2C 4B 5A 6B 7A 9A 

Putting definitions onto disk 
screens is really not much different 



■from using 
TBcoived a 
Information 
FORTH and ! 



immediate mode. We have 
number of requests for 
on converting XBASIC to 
imulating XBASIC's numeric 



ACCEPT, Key -SYNONYMS -FLOAT -EDITOR. 
Insert your FORTH program diskette and 
^ind a blank screen (if you haven't 
done anything with the disk since last 
month, all screens except 4 and 5 
should be available). We'll use 
screen 10 as an example. Key 10 CLEAR 
and 10 EDIT. FORTH is not very picky 
about your format, but you'll find it 
best to lay out a screen neatly. Here 
is the FORTH (XBASIC?) program: 



O 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



K»y 



BASE->R DECIMAL 

O VARIABLE AMOUNT ( LET AMOUNT^O ) 

: CALL_CLEAR CLS ; 

: ACCEPT SI ZE4 AMOUNT 



t 



I AT 

I DISPLAYAMOUNT 
! RUN 



4 EXPECT 
AMOUNT 

t 

•7 - 



PAD 1+ 4 EXPECT VAL 

FAC->S 

GOTOXY 

AMOUNT 

CALL_CLEAR O AT 

ACCEPT_BI 2E4_AM0UNT 
O 5 AT 

DISPLAYAMOUNT ; 
R->BASE 

<FCTN> <9>, FLUSH, 10 LOAD, RUN. 



Hardware Troubleshooti n 

The Kevboard 



STANDARD! lA 9A 




not working is a fairly 
common problem. Foreign particles 
get into the keyboard either through 
carelessness or even no apparent fault 
of the user. It is easy to recognize 
a key that does not respond. Keys 
that won't quit responding is a .isore 
difficult to recognize problem. One 
episode we were contacted about ;^ent 
like this - turn on the computer and 
touch no keys, jump through the title 
screen, fill 4 lines with comma's., 
give a constant beep, and lock up - 

stuck on! Contact 
try to fix itp rock 

until it comss off^ 
apply alcohol lightly and replac:^' t.i© 
key. This often fixes the key. 



the comma kny was 
your dealer! To 
the key carefully 



■ «^^ ma'm .^j _kL .* 
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Using the CorComp 9900 
Disk Controller 



STANDARD: 



programs 
let's 
involved, 
impressive 



lA 2A <o) 2B <a) 4B SA 
6B (no) 7A 9A 

ing into actual 
CorComp Control 1 er , 
some of the concepts 
nning with the 
screen movement statements. 



ing th< 
into 



It is important to locate an area 
o-f memory into which you 



The 1 ower 

should be 

and related 

BASIC, the 

High Memory, 

to 



your screen displays, 
sect i on of Low Memory 
reserved for assembly 
functions. In console 
sol ut 1 on is si mpl e - 
which ranges from address 40960 
65535, provides enough space for 
full screens, which should be plenty 
for most purposes. Using Mini Memory, 
the 4K in Mini Memory and the 24K in 
High Memory mrm usual ly the best 
choices, with a particular selection 
depending on the requirements of the 
program. In XBA5IC, the solution may 
not be so easy. The power of XBASIC 
is tied to XBASIC s use of memory all 
over the place! Study the memory maps 
in the Controller Manual. Also, note 
that the First Free Address in Low 
Memory is painted to by address B194, 
the Last Free Address in Low Memory is 
pointed to by B196, and the Highest 
Free Address in Memory Expansion is 
pointed to by -31866. If you'd prefer 
to load only a few screens and guess 
where they might fit, addresses from 
10000 to 16000 are usually fairly safe 
bets to be free, but test carefully! 
Detailed memory maps are beyond the 



scope of this art i c 1 • ( many pages 
would be required to cover all of the 
XBASIC possibilities). 

Now let's look at what to store. 
An excellent idea would be to store 
an XBASIC input screen that may need 
different responses later. Here is 
what we mean - set up your DISPLAY 
AT'B through a subroutine. Then set 
up corresponding ACCEPT AT's using a 
negative SIZE (for defaults) in a 
subroutine. After the last ACCEPT, 
store the screen. To update the info, 
skip the DISPLAY subroutine and just 
bring in the screen you stored. Your 
default values will already be there! 
Remember , al most anythi ng can be 
moved. Try copying your Pattern 
Descriptor Table (in BASIC, 30 to 159 
only, in XBASIC, 30 to 143 only), 
redefine the characters, copy the new 
characters, copy the first set back 
into VDP- WOW! Instant character 
sets! Try this with the Color Table. 
Be very careful in trying to 
manipulate the Sprite Pattern Table, 
Sprite Motion Table and Sprite 
Attribute Table as you could throw all 
sorts of pointers off. Try seeing how 
quickly you can draw a graph or chart. 
Such drawings might be good for BASIC 
or Mini Memory as the extra characters 
might come in handy. We are also 
work! ng on our Di sk Loader program 
from last month to speed up the screen 
displays. And, of course, the game 
possi b i 1 i t i es are endl ess. Just 
imagine combining sprites and really 
fast moving characters! We're working 
on the above ideas and more. Next 
month we'll start getting into the 
actual how's! 



We hereby acknowledge any registrations, copyrights, or other legal rights held 
in association with the company names and/or products listed belowi 

Texas Instruments, Inc.i TI, TI-99/4A, Tl-Writer, TI Extended BASIC, TI BASIC, 

TI Disk Manager II, Mini Memory 
Star Micronics, Inc.: Bemini 15-X PC 

CorComp, Inc.: 9900 Disk Controller Card 
TEACi TEAC 55B Disk Drive 
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News. Corrections, Updates, Editorials, Kudos, and Come-what-may 



CORRECTIONS TO SEPTEMBER! 



PAGE 



PAGE 



PAGE 



6i There should be m space after 
the "I" in the FORTH de-Finition 

8i In the DISPLAY AT example, i* 
you change to the text columns, 
using "Y+1" in line 2020, the 
string in line 5020 will be too 
long. Change to "THIS SHOULD BE 

ROW 5". 
9: We omitted the -fact that the 

morgs are generated +rom le-ft to 
right, -from top to bottom- 




Last month we detailed 

5 to take in testing the CorComp 

9900 Disk Controller- Most of the 

tests would be valid for any change in 

disk configuration- Our CorComp card 

was not functioning properly - more 

than likely we had a bad resistor, 

though we never ver i f i ed that 

assumption <our dealer swapped it out 

-for a new one). Inconsistent disk 

accesses have been reported to occur 

when adding a second drive to a TI 

Controller if TI's resistor pack is 

not installed- At least one user we 

know of has received the pack at 

charge by calling TI- So, check th 

new disk configurations carefully! 



no 



If you ^rm interested in TI and 
HP calculators, TI CC-40 and computer 
books (including info about a new book 
on FORTH by Leo Brodie), send «1 for a 
catalog to EduCALC Mail Store, 27953 
Cabot Road, Laguna Niguel, CA 92677- 
We know nothing about the firm, but 
have seen their catalog. 

We are having no problems in 
locating sources of most products. 
Extended BASIC is a bit difficult to 
find at a discounted price, but is 
available from TI's marketing agent, 
Triton. If you have never received a 
Triton catalog, their address is P.O. 
Box 8123, San Francisco, CA 94128. 



COMING IN NOVEMBER: Busin 
Finance issue! Plenty of 
programs! (And the articl 
have space for this month - 
forgotten ! ) 



and Home 

tips and 

we didn't 

we haven't 



AT&T will be testing 56000 baud 
telecommunications through ordinary 
phone lines in 12 major cities this 
year! Such lines presently seldom 
support over 1200 baud, with the rate 
for more expensive dedicated lines 

(■for businesses) usually standing at 

19200 and below. 



Many readers have written asking 
for sources of products and info. 

If you are interested in quality 
programs at a reasonable price (*3 
each), send *1 (refundable with order) 
for a list of over 130 programs to 
Tigercub Software, 156 Collinwood 
Ave., Columbus, OH 43213. Mr. Jim 
Peterson writes the programs. We call 
Jim "King of the one-liners", both for 
his wit and his amazing ability to 
accomplish tasks in a single line of 
BASIC. Jim also sends tips to users 
groups (he requires a small free 
plug). If you are in a group and your 
newletter editor is not printing the 
tips, fuss at your editor! 



be as 



When sending in questions, please 
specific as possible, even if 
your letter runs long. We will make 
a sincere effort to publish a routine 
or program that matches your request 
if we know what language, application, 
and equipment you have in mind! 



TI has now 
source code for 
users groups, 
remarked for 



made the 
FORTH available 
The programs 
understanding 



ly 
to 
are 

by 



experienced assembly programmers 
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2 



3 
4 

5 
6 

7 
9 



STANDARD KEY 



Computer 
Cartridge 



RS-232 
isk Drive 



Expansion Box 

Disk 
Controller 

32K Card 

Monitor or TV 



10 Printer 



A TI-99/4A 

A EKtended BASIC 

B Mini Memory 

C Editor/Assembler 

E Tl-Writer 

B TI 

A TI 

B TEAC 55B 

A TI 

A TI 

B CorComp 

A TI 

A Tv 8( RF 

Modulator 

Gemini 15-X PC 



I 



Notei This list will 
monthly to relate to 
articles. The re-feren 
will always correspond 
products. 



adjusted 
ent 

symbol s 
to the same 
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